home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M200.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
5KB
|
185 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String STRING002
String STRING003
String STRING004
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING001 = "NO"
If (0 == 1) STRING001 = "YES"
EndFunc
:LABEL001
STRING002 = String(PcbNode())
If (PcbNode() == 0) STRING002 = "A"
STRING004 = GetEnv(STRING002 + "RECNO")
STRING004 = ToInteger(STRING004)
STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
DOpen 0, PPEPath() + "USER.DBF", 0
DGo 0, STRING004
DGet 0, "CASH", INTEGER001
Cls
PrintLn
PrintLn "@X0E As you walk through the gambling den, you're attracted to a table @X0F"
PrintLn "@X0E currently seating five men - all of whom look quite shaken.... @X0F"
PrintLn
PrintLn "@X0E On closer inspection, you see that these maniacs are passing around @X0F"
PrintLn "@X0E a neural disruptor, holding it to their heads, and firing it. On the first @X0F"
PrintLn "@X0E person, you hear a loud @X0CBEEP@X0E. On the second, you hear the same beep - but @X0F"
PrintLn "@X0E he drops the disruptor and slides to the floor. @X0F"
PrintLn
PrintLn "@X0E Being the cereberal giant that you are, you ask if that disruptor @X0F"
PrintLn "@X0E is set to kill. The house man tells you it's only set for a heavy stun, @X0F"
PrintLn "@X0E it'll put you down for a day or two. Thinking about that, you ask what the @X0F"
PrintLn "@X0E odds are..... @X0F"
PrintLn
PrintLn "@X0B It goes off one in four times, and pays five to one, replies the dealer. @X0E@X0F"
PrintLn
PrintLn "@X0E Throwing caution to the winds, (and a quick prayer to Lady Luck) @X0F"
PrintLn "@X0E you sit at the table. @X0F"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
:LABEL002
Cls
Newlines 3
PrintLn " @X02You have @X0E", INTEGER001, "@X02 credits...@X0F"
Newlines 2
PrintLn " @X02Zero @X0E(@X02@X0C0@X0E)@X02 to quit...@X0F"
Newlines 2
InputStr "@X0AHow many credits would you like to wager?@X0E> _", INTEGER002, 11, 10, Mask_Num(), 0
If (INTEGER002 == 0) Goto LABEL003
If (INTEGER002 > INTEGER001) Then
Backup 80
ClrEol
PrintLn "@X0CYou don't have that many credits!@X0F"
Delay (3 * 182) / 10
Goto LABEL002
Endif
INTEGER001 = INTEGER001 - INTEGER002
DPut 0, "CASH", INTEGER001
Cls
Newlines 2
PrintLn "@X0E Sitting at the table, the man to your left picks up the disruptor...@X0F"
PrintLn "@X0E shakes a bit.... pulls the trigger.... and falls to the floor. The dealer @X0F"
PrintLn "@X0E comments that you just never know.... @X0F"
PrintLn
PrintLn "@X0B You pick up the disruptor and press it against your temple... @X0F"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
PrintLn
PrintLn "@X0B Your finger slowly tightens on the trigger... @X0F@X0F"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
PrintLn
INTEGER003 = Random(2)
If (INTEGER003 < 2) Then
PrintLn "@X0B You hear a loud @X0CBEEP@X0B from the disruptor! The dealer asks for your@X0F"
PrintLn "@X0B arm to transfer your winnings! @X0F"
PrintLn
INTEGER001 = INTEGER001 + INTEGER002 * 5
DPut 0, "CASH", INTEGER001
Call PPEPath() + "VRS-M19.PPE"
Goto LABEL002
Endif
Cls
Newlines 5
PrintLn "@X0C Your ears ring, a tiny rising tone that makes you think of a @X0F"
PrintLn "@X0C fletcher firing. You pitch forward, your striated muscles slack, and @X0F"
PrintLn "@X0C bang the table with your forehead... you hit the floor, twisted, eyes @X0F"
PrintLn "@X0C out of focus, breath gone.......... @X0F"
Call PPEPath() + "VRS-M19.PPE"
DPut 0, "VITALITY", "N"
:LABEL003
DCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 4 Cls
; 1 ClrEol
; 7 Goto
; 10 Let
; 39 PrintLn
; 6 If
; 1 InputStr
; 1 Delay
; 5 Newlines
; 5 Call
; 1 Backup
; 1 EndFunc
; 1 DOpen
; 1 DCloseAll
; 1 DGo
; 1 DGet
; 3 DPut
;
;
; ■ Functions used :
;
; 2 *
; 1 /
; 8 +
; 1 -
; 4 ==
; 1 <
; 1 >
; 2 !
; 1 Random()
; 1 String()
; 1 Mask_Num()
; 6 PPEPath()
; 2 PcbNode()
; 1 GetEnv()
; 1 ToInteger()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------